﻿#时间进退
use strict;


sub time_control
{	
	my $nowtime = &nowtime("1","1","1","1","1","1","");
	while(1){
		$nowtime = &calculate_date($nowtime,"minute","-","1");
		print "$nowtime";
		
		print "\b" x length($nowtime);
		$| = 1;
	}

}
1;